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Subroutine: DMSGN1 
Function: 

This routine generates input data sets for the Levels Computation System. 
Description: 

This routine reads D041 historical data for LRU/SRU data sets, and produces 
as output scewondate data cards required to drive MOD-METRIC computation 


routines. For a detailed discussion of this program, see the Levels Computation 
System Chapter in Volume I. 
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Subroutines EVALUATE 


Function: 
fe 
ie, 
a This program determines an optimal distribution of a given number of 
oe LRU/SRU assets. 
fi 
4 


Description: 


The program EVALUATE determines an optimal distribution of stock among 


rea 


the depot and using bases. A discussion of the functions of this rountine and input 
requirements is presented in AFLCR 57-13, and will not be discussed further here. 


is 


The routine utilized by RIME is identical to the routine discussed in AFLCR 57-13 
with one exception. Provisions have been added to the RIME version to permit 


output of computed levels to the file IBSO using the same record formats as output 


by the program GETBSO. Specific program lines that were changed for the RIME 
version are 421-425; 1295-1315; and 3581-3675. The portions of changed code are 
marked by comment statements in the text of the program. 
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Subroutine: GETBSO 
Function: 


This program records up to 20 sets of LRU/SRU stock levels, with each set of 
levels corresponding to a different Buy Support Objective (BSO). It then scans this 


set of points to identify the particular set closest to a given BSO. 
Description: 


This program inputs up to 20 sets of LRU/SRU stock levels, with each set 
corresponding to a different Buy Support Objective (BSO). It then scans these 
points, and determines the particular point closest to a given desired Buy Support 
Objective, and outputs the data set of levels assoviated with that point. A 
discussion of the computations performed by this routine and input and output 
records is given in AFLC 57-13, and will not be discussed further here. 


The RIME version of GETBSO is identical to the AFLCR 57-13 routine with 
one exception. In program lines 2120-2200 logic has been inserted which replaces 
all blanks in the part number identification field with zeros. This is to facilitate 


sorting steps which are performed at a later stage of Levels Computation System 


job stream. 
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Subroutines GETDAT 


This program reads output from GETBSO and retrieves corresponding LRU/ 
SRU item description data from random file 08. It then outputs MOD-METRIC 
item description records with “IC2 = 1", and delivery schedule cards for later 
processing by the program EVALUATE. 


Description: 


This routine is used in conjunction with the program SAVDAT. Program 
SAVDAT saves item description data on a random file for subsequent retrieval by 
this program. 


Program GETDAT begins by reading MOD-METRIC input card types 92, 96, 98, 
and 99 from random file 08, and immediately writes these cards to the output file 
09. It then reads the first "97" card to determine the number of input records 
(NCARD) that is needed to hold the flying hour data. Next, the flying hour data | 


cards are read. 


The program then reads an LRU/SRU levels card from file 05, and decodes the 
sequence number that was associated with this LRU/SRU by the subroutine | 


SAVDAT. This sequence number, ISEQ, is then used to retrieve the appropriate 
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itern description data from random file 08. This information is then used to output 
a MOD-METRIC item description record with "IC2 = 1" to file 09. Next, the 
program writes a "95" delivery schedule card to file 05. These steps are then 
repeated for each LRU/SRU record on file 05. 


The output from this routine serves as input to the program EVALUATE. The 
program EVALUATE reads the total number of assets recorded on the delivery 


schedule card, and determines an optimal allocation of these assets among the 
bases. 
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Subroutines INTPRO 


Function: 


This program computes initial provisioning requirements according to logic 


specified in AFLCR 57-27. 


Description: 


This subroutine is called by the program DMSGN|! to compute initial provision- 
ing requirements according to logic specified in AFLCR 57-27. The program was 
originally written by Mr. Terry Mitchell/AFALD/XRS as a CREATE Time-Sharing 
program. The program was subsequently modified for use in the Levels Computa- 


tion System for use as a callable subroutine. 


If the write flag IWT(3) equals 1, the routine prints out the details of its 
computations. The printed details are in the same form as an AFLCR 57-27 


Recoverable Item Requirements Computation Worksheet, AFLC Form 614. An 


example of this form is presented in Figure II-2 of reference 1. 
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Subroutine: LEVLDP 
Function: 


This routine produces duplicates of levels records read in on file 07, and 
outputs the duplicates to file 08. The program is used whenever AFLCR 57-27 


logic is used to compute initial provisioning levels. 
Description: 


Programs within the MOD-METRIC system produce a different set of stock 
levels for each given Buy Support Objective (BSO). In our study, five different 
BSOs were used, resulting in five sets of stock level records for each LRU and SRU 
being considered. However, a desired Buy Support Objective is not considered 
when AFLCR 57-27 logic is used. This program is employed to produce the same 
number of LRU/SRU stock level records for the AFLCR 57-27 computation logic 


as is produced whenever a MOD-METRIC computation routine is used. 


The program begins by reading the "BSO-FILE" which contains the set of 
desired Buy Support Objectives to be evaluated in the current computational run. 
It reads this file and counts the number of BSO records on the file, NBSO. The 
routine then produces NBSO duplicates of each levels record read in from file 07. 
These duplicates are output to file 08. A counter in the part number identification | 
field, representing the number of BSO being considered, is updated for each output 
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Subroutine: LEVLPI 
Function: 


This program reads levels cards for quarter I, and outputs levels cards for 


quarters I and I+1. 


Description: 


In the Recoverable Item Management Evaluator, item stock levels are 
recomputed on a quarterly basis. Unfortunately, it was found that the MOD- 
METRIC computation system required very large amounts of computer time to 
determine stock levels for the item sets selected for consideration in this study. 
Consequently, to reduce compute time requirements to reasonable levels, it was 
decided to recompute stock levels on a six month basis, rather than quarterly. 
Program LEVLP1 was developed to resolve interface problems associated with six 
months levels computations performed by the Levels Computation System, and the 


Quarterly Update calculations performed in the RIME simulation model. 


The function of this program is to produce duplicates of input LRU/SRU stock 
level records. Specifically, the routine first reads a levels card for quarter I from 
file 07. It then writes out to file 08 a copy of this card, followed by an identical 
card with coding appropriate for quarter I+1. In RIME, levels are still recomputed 


quarterly; however, identical values are read for quarters | and 2, 3 and 4, and so 


on. 
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Subroutine: METINP 


Function: 


This routine estimates Mean Time Between Demands (XMTBD), NRTS rates 
(XNRTS), and condemnation rates (CONS) using historical D041 histories. 


Calling Parameters: 


IS = The quarter number identifying the most recent historical period 
to be used in rates estimation. (Note: Quarter | represents the 
oldest quarter, while quarter 16 represents the most recent 
quarter for which data is available). 

IE = Quarter number identifying the oldest historical period 
to be used for rates estimation. 

J = The item index identifying the particular LRU or SRU for 
which rates are to be developed. J = 1 denotes the LRU, 

J = 2 denotes the first SRU, J = 3 denotes the second SRU, 


and so on. 


Description: 


Subroutine METINP begins by computing the total base reparable generations 


(ITBRGN), total LRU program (ITPROG), the total number of NRTS events 


ee ee ee al Ee ML a eT SO me RS re ye ag a gt ee a 


(ITNRTS), and the total number of base condemnations (ITBCND) occuring during 


e the quarters IS through IE, inclusive. It then computes values for Mean Time 


Between Demands (XMTBD(J)), the NRTS fraction (XNRTS(J)), and the base 


condem nation fraction (CONS(J)) for item number J. To prevent “fatal" computa- 


tion errors in subsequent MOD-METRIC routines, each of these values are 


5 compared to upper and lower bounds, and set to the appropriate bounds if they are 
out of range. If XMTBD(J) exceeds 99999, it is reset to this value. Similarly, if 
XMTBD()J) is less than 1, it is also set to 99999. This latter case implies that there 
= has been no program for item number J, and consequently the estimated MTBD is 


set to a very large number. 


Similarly, if there have been no base generations for item number J during the 


interval IS through IE, the estimated NRTS fraction is set to XNRTS(J) = 0.01. If 


“1 there have been at least some base rep gens in past periods, but no NRTS actions 


have been recorded, the estimated NRTS fraction is also set to 0.01. Hence, the 


et estimated NRTS fraction is never allowed to be less than 0.01. This is because the 


MOD-METRIC program TWOIND will not accept as input any item with a NRT> 


fraction less than this value. 
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Subroutine: ONEIND 


Function: 


This MOD-METRIC program computes stock levels using assumptions em- 
bedded in Sherbrooxe's original METRIC model. 


Description: 


This program computes optimal depot and base stock levels ignoring LRU/SRU 
relationships. The computational logic and input/output requirements for the 


program are defined in AFLCP 57-13, and will not be discussed further here. 


The RIME version of this routine is identical with the original MOD-METRIC 
Program with two exceptions. First, the input program has been modified to read 
values of the levels computation variables IMINSK, BOMIN, and JEQBAS from the 
"99" program parameter card. If JEQBAS = 1, the flying hour and order and ship 
time data by base is reset to the average values summed over all bases. These 


changes are implemented in program lines 1531-1545. 


The second change involves implementation of upper and lower bounds on the 
stock levels computation. If IMINSK = 1, the expected number of assets in the 
repair/resupply pipeline is used as a lower bound on the computed stock level. 
Also, in this case, no additional stock is allocated to a base after the expected 
backorders at that base is reduced below BOMIN/NBASES. These stock level 


limitation calculations are implemented in program lines 2571-2605 and 2952-2963. 
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Function: 


59 


OVHSTL 


This routine computes overhaul stock levels using a 14-day supply rule. 


Calling Paramters: 


IQTR 


JJ 


IOVSTL 


Description: 


The quarter number for which stock levels are to be 
computed. 

The item number for which stock levels are to be 
computed. 

The computed overhaul stock level. 


This routine first computes the total number of depot reparable generations 


for item number JJ which will be generated during the 4 quarter interval beginning 


with quarter IQTR. It then sets the computed overhaul stock level IOVSTL equal to 


a 14-day supply based upon the computed demand rate. 
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Subroutine: SAVDAT 


Function: 


This program saves item description data on random file 08. This information 
is subsequently retrieved by program GETDAT using a sequence number assigned by 
program SAVDAT. 


Description: 
This program is called pric. to a ONEIND levels computation. 


The program reads MOD-METRIC input records from file 05, and assigns a 
sequence number ISEQ to each incoming data card. It then writes each input card 
to the random file 08 using ISEQ as an index for the random file. The index ISEQ is 
then inserted in to the part number field of the input card, and the modified input 
record is written as output to file 09. This process continues until all records in 


the input file had been read, stored, and modified. 


Outputs to file 09 are subsequently used as input to the ONEIND levels 
computation program. Later in the job processing stream, the sequence number 
ISEQ is used to retrieve information from the random file 08, and to relate it to 
computed stock levels. For additional discussions of this process, see the 


description of program GETDAT. 
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Subroutine: SPNDMS 


Function: 


This TimeSharing-Program is used to generate the Job Control Language 
statements required to utilize the Recoverable Item Management Evaluator 


System. 


Description: 


This program is used to simplify the preparation of run request for the RIME 
system. For a detailed discussion of the functions of this routine, see the User 


Instructions Chapter of Volume I. 
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MS.S 

DIMENSION ISTAT(2) 

CHARACTER CARDX72 

CHARACTER SIMCARASO 

CHARACTER ANSkK1 

DIMENSION RF(1i0%13) 

LATA RP/1 ep Ger Dealer Oe ere Ger Ger GeorGey 
BSeplevOevrSsevdesGey Gere Dever 


% LevOvvlevle vr Ov.eley GerGerOeeOey 


ale rOe Oe r Ler Der Oey Lex Ge O01 ele r 0.0019 
5 SevxtevrderSerkderdes 1.790.00191.4290.001» 
b A. eDe rDev Qe vr Oe Oey Oo xrDe Dee Oee 

TA. De rOeree revo” LorQeOl ed. 70-0l1y 
eS Yarra leree Selerenere OerOvxle 99-001» 
V2.9Oe rDev Serloevles OovOevl oe rPO-0Gls 
W2eeOevOevSenlovider 1¢»0-O0191.2990.001» 
Ae De rDev Ler Orr Oey Oe vOevdo er DeO0Le 
112,900 rOer o9Oe70ey OerOev1. 79-001 
32010190. GyrOerOes 1670-01 91-690.001/7 


RP (JsT)=J-TH PARAMETER FOR INVENTORY FOLICY I. 


CONTINUE 
SIMCAR="$i TAFE S07 9X90y » 70053 29EXOGF " 


READ OUTPUT CONTROLS 


FPRINTs "AC? FUNCH? SIMULATE? MORE CORE? (1=YES» 0O=NO)*" 


IMICRO=0 
READ» TAC» TFNCHs ISIMUy [CORE 
IFCISIMU.NE.1) GO TO 10 


FRINTs" IS -~-"vSTHCAR 

FRINTs* OK FOR EXOGFILE? (Y=YES)* 
READ s ANS 

IFCANS-EQ."Y")GO TO LO 


FRINTy" INFUT EXOGFILE CONTROL CARitS 
READCS» 3)SIMCAR 
FORMAT (ASO) 

FRINTs" CARD WAS READ aS-~-* 

PRINT, *=s2=="9STMCAR 

FRINTs" IS CARD OK?CY OR WN?" 

Ri ADs ANS 

IFCANS.NE.*Y") GO TO S 


10 CONTINUE 


16 


17 


ae 


READ STIMULATION PARAMETERS 


CONTINUE 
FRINT 139° NF GRF » NLGRF ey INQTReWOHISs CRU-LINiIT" 
READ(S913) NFGKF» NLGRF » INQTReNDHISs TCFULM 
IFCICPULM.GE.10) GO TO 17 
FRINTs® CPU-LIMIT MUST BE =>10" 
GO TO 1é 
CONTINUE ee 


ITOT=NDHIS+tINGTR 
IFCITOT.LE.i6) GO TO 1% 
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PRIND eS ORULOTANWIRK LANNUT EAGEEY Lo. SIUF KUN" 
STOP 


19 CONTINUE 
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30 CONTINUE 
CALL. CREATE (Pel OxTSTATCL) 9) 
IFCISTAT(L).NE.O)GO TO 9000 


Cc 
FRINT 11 
LL FORMATCS//) 

Cc read ident of run desired 
Cc 

FRINT 13,"IDENT?" 

READCS 2131 

Cc set run rarsmeters 
C 

IDENT=I 

IMETH=RP(19I) 

IEQBAS=RF (251) 

ICOST#=RP (391) 

KMETH=RP (491) 
' KREQKAS=RF(S,I) 
' KCOST=RF (691) 
‘ IMINSKI=RF (791) 
' BOMINI=RF (891) 
’ KMINSK=RP(9,I) 
! ROMINK=RFP (1091) 
1C 
C REAG MANAGEMENT METHOD CORES 
C 
) FRINT 13%" ICENT IMETH TEAQRAS ICOST KMETH KEQBAS KCOST" 
) FRINT 149 IDENT» IMETH» IEQRAS*s ICOSTsKMETHsKEQKEAS »KCOST 


) 13 FORMATC(V) 
» 14 FORMAT(I72617) 


OC 

‘Oc 

20 PRINT 13%° IMINSK BOMINI KMINSK BOMINK* 
50 FRINT 157 IMINSK» BOMINI yKMINSK » BOMINK 

10 15 FORMAT(I7s F1i0.39179F10-3) 

50C 

50C 

290 

30C 

LOC aR nek SS BUILD BATCH CARD DECK<-~~---- nnn 
20C 

LO IF(ITAC.EQ.1) WRITE(921013) 

20 1013 FORMAT< *O10##NORM»R(AC)*) 

30 IF(IAC.NE.1) WRITE(921014) 

40 1014 FORMAT( *010#4#NORM" ) 

30 WRITE(991023) IDENT»NFGRF »NLGRF» IMETHs TEQBAS* ICOST» 
508 KMETH» KEQBAS r KCOST 

708 ry IMINSK» BOMINI eKMINSK » ROMINK 

30 1023 FORMAT(°011$3 IDENT? WF14625XRS/DEMMY--~-~-— *y 
708 T29 "KKK" T29 HK oT 29 Ke fm PGT 2S 

008 "OL2Z$S NOTE $ ~-- no nn nen "r2(T2r*-"1F 6.49 "==")) 
10 IF CICPULM.LT. 100 WRITE (9+ 1026) ICPULM, ICPULM 
20 IF CICFULM.GE.100)WRITE( 921027) ICFULMs ICFULM 
30 1026 FORMAT ¢ 

408 "O1SSiLIMITS$ *sT2s"xr29K*/ 

508 "O20$3FARAMS "9 I2/ 

60% "023%: SELECTASRIME/GO/DMSGN.E1") 


70 1027 FORMAT ( 
ROS "AIRELP TMT TOOe TTL OL Lowes 


i Maree Vice ee eS 


67 


vve "OZSSSSELECTASRIME/GO/DMSGN.E1*) 


10C 
20C WRITE DMSGN1 PARAMETERS TO FILE 09 68 
30C 
40 WRITE(9933) IDENT» IMETHs IEQHAS» ICOST rKMETHy KEQBAS s KCOST 
SO 33 FORMAT( 0258" 1814) 
60 WRITE (9934) IMINSK y BOMINI yKMINSK » BOMINK 
70 34 FORMAT(°0268"92(159F10.5)) 
BO WRITE(9923)NFGRP, = NLGRF» INQTR»NIIHIS 
90 23 FORMAT("027#° 815) 
90C 
» 0C---------- OBTRAIN MOD-METRIC PARAMETERS FROM RIME/DMS.CTL 
20C 
: 50 WRITE( 937) 
AO 37 FORMAT( *030$3SELECTASRIME/DMS.CTL*) 
oc 
oc OBTAIN FLYING PROGRAMS FROM RIME/F1i11FH.D 
oc 
0 IF (NFGRP.LE.13)WRITE (9238) 


“+ 9O 38 FORMAT(°032¢{SELECTASRIME/FL11FH.II") 


“b0 IF (NFGRP.GT.13)WRITE(9939) 
Lo 39 FORMAT ( °032$!SELECTA!RIME/F15FH.DI®) 
oc 
- §00-------------- GENERATE REMAINDER OF JCL 
40C 
50 WRITE (991008) 
$0 1008 FORMAT ( "035$2SELECTA!RIME/GO/DMSGN.E2®) 
70C 
30 WRITE(991018) IMETH 


70 1018 FORMAT ( °O40$2NOTE 8 XKKKXKKAKKKKKK INITIAL PROV--IMETH=°sI2) 
0 WRITE(921028) IMETH 


.O 1028 FORMAT (°OS50$2SELECTA?RIME/GO/INFRV.E* +11) 
20 WRITE(921038) KMETH 


$0 1038 FORMAT ("O60$2NOTE? KXKKKKKKKKERKK REPLENTSHMENT~~-KMETH=* 9 T2) 
0 WRITE (991043) KMETH 


30 1043 FORMAT (°0O70$3SELECTA!RIME/GO/REPLN.E**T1) 


0 WRITE (921053) 

0 1053 FORMAT (*O80$2NOTE 2 XXKKKXKEKKKERKSORT LEVELS") 

i¢) WRITE (991063) 

0 1063 FORMAT ( SO90S3SELECTASRIME/GO/SORTL.E1") 

0 IFCIPNCH.EQ.1) WRITE (921213) 

.O 1213 FORMAT (*°1L200$2NOTE 3 XKXKEKKKKKKKKKAKKKPUNCH LEVELS" s 
0 &/»* 1 210$3SELECTASRIME/GO/FUNCH.E1") 

‘OC 

0 IFCISIMU.NE.1)GO TO 1400 

‘0 IF CICORE.EQ.O) WRITE(921313)SIMCAR 

O 1313 FORMAT (*°1300$2NOTE $ XXXKKKKKKKKKKRUN RIMSIM SIMULATION’ 
o& "13108 3SELECTA3 RIME/GO/RIMSM.E2*/ 

08 *1320" »ASO) 

0 IF CICORE.NE.O)WRITE(9*1314)SIMCAR 

O 1314 FORMAT (°1300$2NOTE $ XXKKKKKKKHKKKRUN RIMSIM BIG MODEL"? 
0% *1310$3SELECTASRIME/GO/RIMSM.E4°/ 

O& *1320" ASO) 

oc 

© 1400 CONTINUE 

oc 

0 IF CIMICRO.EQ.1)WRITE( 991414) 

O 1414 FORMAT (°1400$2NOTE 2 XkKKKKKRKCOPY FL FOR MICROFICHE'/ 
0 £°141083SELECTASRIME/GO/MICRO.E1"> 

0 WRITE (9*9003) 

0 9003 FORMAT(°1OOSSENDJOB®) 

oc 

ae i ad aa ce SPAWN THE BATCH COMFILE-~-<-~-- nee nnn 

p) ENDFILE 09 


« me omre mw em == 


] RewLNu vy 


) CALL CALLSS("RUN 09#*s "CLIN" 
¢C 

IC---------- DETACH THE TEMPORARY FILE-------~------ 
oC 

,) CALL DETACH(O9»*ISTAT» ) 

oc 

0C~~---------------- CONTINUE ? ? ? 

oc 

0 PRINT 13*"CONTINUE?(Y OR N?)* 

0 READ (S»13)ANS 

0 IF(ANS.EQ.*Y") GO TO 30 

Oc 

0 PRINTs" DQ ANOTHER GROUP?(Y OR N)* 

o READ (5213)ANS 

0 IF(ANS-EQ.*Y")GO TO 1 

oc 

0 STOP 

oc 

oC 


9000 CONTINUE 


PRINTs "THIS FROGRAM USES FILE 09 AS A TEMPORARY FILE» 
3 PRINT, "FILE O9 ALREADY EXISTS." 
0 FRINTs" 00 A ~-REMQ CLEARFILES-~*" 
‘0 STOF 


0 ENIt 


sds 
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Subroutine: TWOIND 


A Function: 

% 
. The program TWOIND implements the MOD-METRIC two-indenture stock 
a level computation model. 
os Description: 

or This program implements the MOD-METRIC two-indenture stock level compu- 
its tation model. Input requirements and computation logic for this routine is 
a 


described in AFLCP 57-13, and will not be discussed further here. The RIME 

ie version of this routine is identical with the AFLCP 57-13 version with two 
exceptions. First, subroutine INPUT has been modified to read in values for the 

g stock level computation variables IMINSK and BOMIN from the "99" input record. 
ea The value of the MOD-METRIC variable BSTOP is then set to the input value for 
: BOMIN whenever the bounds flag IMINSK equals 1. Otherwise, no change to 


a BSTOP is made. These changes are implemented in program lines 3061-3102. 

o 

ae The second RIME modification is implemented in subroutine OUTPUT. In this 

: routine, if the bounds flag IMINSK equals 1, the stock levels computed by TWOIND 

L- 

i are compared to the expected number of assets in the repair/resupply pipeline. If a 

P stock level computed by TWOIND is below this value, the corresponding stock level 

i is reset to the expected number of assets in the pipeline. On the other hand, if 
yt IMINSK is not equal te 1, no bounds calculations are performed. 

ae No other changes to the program TWOIND were made. 
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01 N0e26°79 8 =18 4850 


: 1 SVBROVTENE IAOTT 
r 2 Cmneccodovedhvcwbovoorgethabbepecge RTE CONNOR SSegege 
. 3 COMNOR/LINERS/ENZNSKGOSCREE 
4; 4 Co powen Sree dSscdvepdogqesheSsogoegsheBND RINF 
pe 5 COMMON /XOPT/ NORTZREUNODSVULCOR LEASES, SRHTRE, DATOER 
= 6 LOGICAL BQUNOD, SULCONSRSNSON TROGIR, DSEACE 
on 7 
| 8 COMMON /XBYS/ PLTNZHeRLTMal, oS ONTEyX1GuAxORRSROR 
9 DATA FPETNSN taieaae PLEMKY £15E05/, VIOHIN Pedh, 90s, 
ey 0 8 X2ONAN 4351.3 
os ‘ CONMeN 7BASE/ HiAsnSouenvs,reyeyrvoz: eet, gpnagapates.tan,arans 
Ve 2 8 ESREVEPSIUC, BSFARTHSSLOL Dy PORWEWEHOSTOR ,BSTOS 
: 3 DZMERSION FHS30),-QERCRO§ sone CIO! 
& 4 ¢ . 
\ 5 CONMOM /LAUS7Z CLAY ZENEAOSYNRLS ,PRELRG PATHRY PSE SRNOBK 
ee 6 ¢ 
~ 7 ‘ gee Aah CERUZONSH CESK CHANDA XHVOS -PRSLS, POLOSV DRTIaY, BRLT 
) ORE, PCTRRE 
9 PENERSTION CSRUEES) sZNFBH LOS) SRARTHLSS) ,ORYSET HAS) soBesag( es), 
0 é SPLTEOS) SINVORK CUS) eDETRATEESS 
| 4 
= '2 CONMQH /CHABS NOG THALL SMO, TER, TOLRU, THSIE, SR, BHSHyasC, SKLE 
." | 8 PIOCAD, TCE ENT 
: 7" CHARACTER ROGER THORS STOLAUI RG THSRUORS (AH) -PORe VO SP SR OE CES) 
: ‘5 g ALG*1, SALET1EGS) pedennlg) .Kereesecregs S$), BMOHETS) 
2 6 DATA KEY / 6RneTWKH 4 
7 ¢ 
* 18 CONMOM /HOUTZ TARGA SNONT SNNLE ,TOSRE, LRUCH, SOLE 
. 19 DATA TARGES 4 0,0 / 
“ 10 € 
i 4 CONMQH /LCOMS PSGLEaPgeLT 
- 42 PEMENSTON PSGLI( HS) 
Hi 33 ¢ 
a 36 DERENSZON EAU LEE alae Gh clas 
Hmmm RHHTTH STH 
} é 
37 8 BBAVESO) CROAT (SHI beabesoseddavesen. 
8 & RRBSAVESO)5 
“4 9 8 rapeaveseys 
1) g ABSAV¢DO)7E(301¢20RVES0) 
4 e 
So. 
r) 
46 CHARACTER CARDOFT THC ga LTePeseay Bosrsny ae 
15 8 fm ees 
16 DATA BDANKI6 / 
: 47 DATA ZSLEWS 4 190 4 gecewn 7 
; 6 DATA KOSR £ AOHORTULED wnOvaEs ” ‘noe ; 19% AVORSBS ORNAERS / 
- ; DATA ZTOST ¥ 5H OST /2 SERBUS / SRARBVE / 
‘ 3 € 
. 4 peratance SPRCUS)  BUCTOS) ,OPSD CUS) ySSDCES) yEOR ERS)» 
. | 2 8 8PQ( U8) 


TTWOIND/INPUT 


_. FEL 10626079 1RaRSE 
“ TUTEQER QSL(G),OSHCOSTESs LEPCRIESPPCKS. 8) 
REAL CERGAD LCRET, LAGHINSLAGHAR 


72 


Daga a et et tt LL ae , ae 
DATA BODES TORRTATPNGESIVTLB 2 yO / 
DATA BSTRSRESTAT BRAD batovezestonscrae, 2BzHC 
e300 aa 7 450% 640, 0508 4 
ough WROGHAZSRY / 
TERSEag OrEaeR(Stotaeesers) 
PATA OOTEST / CRBQUNODZ SRSRLcee, ENXHATEZ, ARBRETKT, GuDSTOEK 2 
LOGXIeaL operonca) 
BOVITALERCE | Sp Pena tate Benner ) 
DATA BEAUKS / 6 


/ 
ent BETLEY £ : /¢ Bhovas 7 100 / 


OSTERNTES BY ig QF rKdUT 
xP ( MSBUS,GT.0 ) Oe 


ZF § SROT,8T.0 ) GO FE 4096 

BEAD £65, 25 ERGS9I9, BARAIOAGI TET TeRyCaae 
FORMQRCI2 93 US GA7T) 

ZP ¢ METERVLLE.A § 68 PO 3 

bs | ( TO44L2.9 OR, riers 1 @@ #0 4 
IP ( LOCSGEL) ,ANDG ZEOLLES ) GE TO 9 
a@ Tp PET MTEC CEMTELTT er 


PROGRAM DABANAT ER See 92,98790599 


SPC LEUSRULGEL 4 a #0 1666 
TP(1C2,08,0)G0 fo 908 
Cove PROGBAM COy?Re: OFrreNs CARR 


DRCOOSECARD, 929) ¢ BSSUSRCzebT) ,rOPFetsBORe 
ROOPAE SI 29800 12)) 

pe 930 TOeP # Put 4 

A a TASER, 


TBRORT 9 0 
DG 999 TOPE & eR ORE 
zy § SeeerE(sOPs enpaneE ) 999y9384934 


pe 939 Jort & 4,NQ 

ay eeisze ior eabteen gort ) 933,983,983 
PRTIONGGORE) @ 

voectevices inttitien 

gert © Sep 

49 79 Pid 

CONTINUE 


SP § SEROKE LEGO  WALTECEL HNO) 


OVSBVSEUWEUN2OWOWAWEWHA 2 OB Daw 


106246079 


91 


aaa nan 


184350 


TBROKT a2 FEROPT 4 4 
WEITECE, 948) TRATERCIORT) 
CouTzuUE 


27 ( KOPT » TEROPT ) 93659865030 

WAITESE, 997) 

PORMATES SReteeers? Cehehee BLANK PROGRAM CONBADL Cand-, 
V EVCOUSTERED"/° VaXevey stgunyRy OSTICRE SBRVzZ 

¥ ereneeets/) 

a0 To @62 


B WAITES6, 900) 


ZIP ( BOATHS ) NEED © HEge 
ZH ( BRGLRE ) LOST & ERRAYy? 
TP ( BEGINS ) TeOUBS # 4006 
LOrTt = 6 
pe va" Lope o 4NOReE 
TB ( ,BOL OPTIONELEST) | 26 Se 990 
WRIT EGO, ORR) orynenesert, 
LOPT © LOPE 3 4 
TESTENCLOPS) @ OPTESTE TERT) 
CONTINUE 
FORMaTGauOreeoese sen SPVErIoyen PRoaRaNsey CORTSARs 
Qu OPTIONS/) 
RORMNETCSYAG) 
monte c ssa teacannns’a COUlROLYaN OPTIONSs) 
ge T 


| 6@ a (o4g0ae8dgousebroarer,ee;oe) ere 


91-6 DATA FELE CONnOEE exne 
¢@ TO 2 
O2-= HEAPING/ETTLR Poe TOS OF PACESNSCHOPLEUD 


DECODBCCARD, 192) 8D9 
FORMATCAS9) 
Go To 3 


DECODECCARD, 93339) vagagt 
younarqei2,@) 

66 TO 2 

gO TO 3 

Ge Tp 2 


Q7re FLYTEG NOVSS Agp SapsRcsnrhe IIHS PER RESR 


r97=4 
DECODECEARD, 199) NDEBRS 
FORMATCES) 

IB(URASES. OT; 30}90 #0 9679 


D@ 975 28S = 1, BASES 
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$62 10026979 184350 
975 YERERGIBS) = IBS 


Se ee ee 


397 
597 F 


¥97 


$97 


Sate Te 
ae ee 


wR?) 

LECHINO CE SERASES) 

He Md A 
RAAVCSZIE (FE. OeP 9499) 

TH( LH, SBSNERSES) GA Te 497 

TESTRFe 

tet aba hada Ae 
BEAD $9$2) 264,263 ,C588 
SRCTE GEREN ORTE2 AB) 66 to 1030 

ae te 292 


PEXTAVSO 

apDRT @ 0,6 

ONIN & PLINAZ 

OMAX © Petngn 

pe 59% Tepes, poasea 

ONIN © RUTH ¢ OSTCCRS) ONIN 
OMAX © AMAX¢ ( OSECESZ),Omax ) 
FLITOVOrLPOTerg (ras) 

EP ( ONTEHR,OMAZ 9 Be 20 4 
pe 590 cau wy 1,uRasEes 

APDRT © ADRRT + ASTETQS) © PACrDS) 
ABORT @ RDOBRT / PELReT 

ADORT @& ADBET = ANTS 


DUTERNSHE MAS © BASES WEIR SEun PRYING NOUS 


ABASES = 4 

Z¥ ¢ WEASES LT. : e@ v0 1 

WSASE © WERSES « 

pe 2959 Be © seupase 

BBANR ® 4 

MOASE @ uae & 4 

DO 2036 NBS a MBASEgUQagds 

ZP ( VECeBFerKiNBs) § 2057,90539, 2057 
TP ¢ OST INOS) COST INES} } 269942088,2087 
59 ( SHABPCHAS SABA | 908609055. 2086 
SaRSzGuas) | Bas 

psang ® vaans - ' 

COUTENVE 

COuteuue 

BBQSES ow MARO ( Npassg,gsane ) 

CONTE NUE 

6 to 3 


Woo HUTHUS SVgesegeatzons 


7h 


' 04 
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40626°79 =. 18, 430 


98 DECODBCCARD, 198) NOUTSCPRIT ToREN AFILE 
498 FORMATCUL2) seus 
TE (HOVE, LE,O) FOUTS 
TH(TRcuS est RE SME ERSUTOnTEC¢rOREE, 2) 
ge TQ 2 


29ro RARANETER PRTA 


_ ee 


epormevocsed eeébovosgerOhessogeozesopeB INE CUAHGSS #0 ZRPOF Bovees 
99 DECODBCCARD; § HePOUNsBEROLO  BSTODSECPREVHMNE; 
r zneus6 ARDHEE mi ‘i 
q99 peanat OP6;2 
Ty ( PBEee,LBeasa'| apzee o 0,08 
re ( Ferec Lttoloahga 
shi a £Q.4 


chB Ks? ) PRERE = 0,025 
‘ane CHAQRESS cg-Seae 
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COACSANAY IE ANE ACCERCG4: - 03) 
td aie )BSTA"S, 


¢ REETAY = " 4 ( STR @ 9070 | + 4% 
¢ BERD © 30,6 © BBTA o 4% 
66 To } 
10 G@ Te 4 


WESTE TILE LINE LOR nzERorIcal 
WOO WRITESSOUT, 410) NDG 
G10 PORMATCIH1/, IN°O*, beay) 
THDGs1 
$8 TO 34 


20 GO TO 6244220290 26939926097,88199)4TC2 
d2e> LAY BASSE parX 


21 EV(IHDE,LE,O) 80 20 909 
IU ISWSRY APES 490 20 HT 
TV ( THTLLELG ) GQ SO 016 
WXTLBV s 0 
DECOPBtcAaD; 21) tpRavaucs re 989; SoeERRULTURDDYEHEEE, 
8 COvL wapezeRtze speeder. ts thers ett M 
124 peunhecaztnasarcetiggeectopal cBvr2,209500787 @ERdvany 


ana wv 


92802 ITRCOMPRIZIALE wD FIBRO FH ese ey) €zete 
9222 THE cuaeacrens secceetie” ApOVE POONKT Ssaci akg ,Fass, 


aeee 
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YUATESIBOUBSTAPE/YMTED 

WRITE CHOUE, 821) HDSEIpaYeeMocrYs 

FOBMATCIMIGAGS/SQXOSINDRTE OF RUN PISASSGNIISED) 

WRITECROUTISSUIUOCNSSREA STOR WBASES CRAG, PBERC, ENINSK, BSONTE 

PORMATLCYOHSTS=, TITELS USL AaeES. By 5K0 
GUBSEOPe;EC,3/ TH BARRENS T3CEX, SUGFACS, 7953, 
AZ,GNRATHCR,PS,35% FHLHSK 0,76," BONTH O°, P E78) 

WRITECMOUTE SIVPMOURALPRNTLIPNER UPILE 

FORMATIMQROUTS aIZz70 CeRNTe*s x2," LPucua"gEs,” TEsee”,7+2) 

SP(CEACL EE, O) WRITES RONG, 999) 

PORNETCYSSE, THO CONDEMNATION sraeKk COoNBUTED®/) 

RBSTECBOUTEAS4) ToaP 

PORMATCCSHOGASE «FEY wRS ,b%5A5) 

De 721 LAS#1, NBASES 

WALTEGBOUTL HSS) IASPPACEBs) ,Osteras) ; 

EP ( XBASEY ) WAITECMOUTC 7935 2ERBF( TBS) 

PORMATC 1943 26X73) 

COUTINGE 

PORMATC IX 5 24_27950) 

WALlTEPREUTZS22) Fureor 

FORMATCAX  FHz-@eree / Oy TOTAL » B80) 

VAITELBOUTZ 224) NTBPeENOURS 

FORNATC/75¥, AGHWORR REA? ho... 6k; 

#3WALC UEZ2 «=6—BAM TEMECRRSS «=6REMOVALS PEQ, Sx, 

VONNRTS COD REPATR SIME PRocUR BEAB OQPA,/ 

SXoV(MUNTT «=—- NEN 196 

TSHCORE «COST AX, ORES IETEN FLY NBS,3X. 

OOURATE RATE Bade Ogpet TeeesMenTHS) MBA } 

VESTECROHBAGCITOLRVe STE CLAD, INTAD, TAATEPLARES, 

CONSSBSTERU DRELBCERLT LRP? 

PORMATCSMOLRY ,b267003P9.0,F71909. 9. FOr 5 Ee 29852, 
FO, 062F7 ee OXeFSeO/UM BRU) 

TPCVHBIS.LEL0, 389 TH 392 

CORLSCORL*I NETS 

PUTSCORLYPETESO, tCPACyTgRrs 

DETLEY = DATLAY « aApape 

DRTLEVSPLTF (THRISOCONE) COMTLAY /THRTS 

qe Tq 823 

CHITSSOCONL 

PLTBGO, 

DATLEVEES, 

YUTEO*SMTOP/APe 

ao Tq 3 

66 To 3 

g60 TQ 3 

6@ Te 3 


3bee ERY PHAGE PROVISTENTNG AND ASLEVERE SensauLe 
DECOOKECARD, 125) OSL pLpe 


PORMATEISXPUTI, UX LUEIC Axo ars) 
ZV ¢ DSTOCE ) ABSOMEGEARO 990) Lewore 
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i 44 424 FORMATESHX3L3) 
{ 12 g® To 2 
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‘0 4 dtey LRU PRDSANS Sfoex # & UNTEDE BSTRAT 
15 ¢€ 
16 26 DECODECCARD, 126) IPPSNGRSN ESTA EE 
17 926 FORMATOCAZUS 1ZGANGGALEPATY | 
18 TRC(IDURY,NE, TOPS GR FO % 
19 T¥{BASBEM LT, 0)BSERENAY; 
20 WAITEGBOUTS 226) FSH 
24 225 FORMATCISX,A16/} 
22 6© TO 2 
23 27 6@ TO 3 
= 24 28 6@ To 3 
‘ 25 29 G@ TO 3 
: 26 ¢ 
_ 30 GO TOEKG, 32533994, 960965971 S05 39TEIC? 
¢ 
29 ¢ S$fe~e SRU BASZTO DATX 
30 € 


1 31 IP(IEWERU,ET, 1960 FO 4680 
32 rF 297, L8,0 ) Go #0 099 
33 PSAUSSESRUSs 1 
34 THCNSRVS7GE BAXSRYIBO TO 4650 
35 Jau+4 
36 LEwSRUM 4 
: 37 DECODECCARD; 131} IOSAVINSRYS) SUC TRSRVS) 5 SRSD (HORUS) DSH (HERTS), 
x 38 g CRU (BROS); SHTOOTNDSUS |S XMBESCASRUSS CONDHOEED) RAVES 
39 8 BATSRUCHSRUS) , DUTHSUSRSRUS| , Vane (HSRUS), SOLE (RERUT) F SPO CHEATS) 
40 g.34 FORMATOA2GS INGE 7A Q0ROS OSPR, REPT Sy T2038 F500 AND RU) 
eW 9292 THCOMPATIALE W,B FIELD SR {Pe sPbexesearron 


*W 4222 THE CHARACTERS PRECRDING ABOVE PORNAT BRROR ARE oF852. 
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, 42 Genes 
43 GAPPENATO( HARES 4) 
au XRATZSELOORSTSAPPAGR TENTHS (FORUS) 
85 IP ( teqzOF,u ) KRAVE & 0.6 
$6 4 PEGLIGMSRUS) © XRATE 7 PRALBEC IC oreRTS) 
$7 sun raunextice 
48 WRITE BOUT, 294 PeTOSSUCTTROSLLSELELNSAVT) FESR LRSRVG) | 
u9 8 XNTHDENSRUS) GNRATESZURTS(MERVS) ,CONLGARUE) BERRY LESRUS) ys 
30 é DRIGKU(USRUS) -SPLTCUSRTS HSROD bee Se 
34 234 FORMATE Ze ZKeATWGAS L9G oKI12 VHX PO SHAR IES dy 
52 & BETO 2F7,098%9F9,0 3 
$3 XNTBQIBSRUSSRMPODLOSBUS) /Caheseaey! 
54 LPCXHMOSCWERVUS) LBE0L9GO T6 392 
55 CONC KSRUSSCORCHSRUSevghes(AeRvs) 
$6 SOLT(WERUS) SCON(HSRUS) NSPLTCRSAUSH TIO, VEPRCZROAESERORUS) 
§7 DATSRUGNSRUS) | ORISACCPSAVS) + AHSRT 
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39 8 © DATSRU(NSRYS)/EWRTS(HSRUSY 


ge To 2 


a 
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+4 PXTLBV @ 4 

45 go TO 2 

96 4060 WAITEPBONT. 1965} CABD 

7 97 9068 Ber aer es erenweeene BBY 824°, SR,078) 

aa go Te 2 

-. 99 4070 WRITES, 1093 ) MDASES 

oa \°) 1075 FORMATCAHI,MRSASES CANNOT PXYCERD 800097 CORD XS IN 
23 & EREORT, (OF, TMBASESGFY3) 

93 gz0P 

RS 1080 WALTESO, 1085) 

R4 4085 FORMATECUID" INPUT SATA Prizg snprsze) 

85 1090 S¥OP 
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0 2000 CONTENUE 
Bq PEGLT @ PSUM / XRATENEMcwyNRtgs 
32 WRITELMOUT, 2610) Fsun 


:- Bs 2010 FORMAYCGOX) CRewnrweges 60x, F955) 
- TOCFSVNL GT, YRATE * STSTT IT PCLLEYY LEED 
33 2095 FORMARCYZGCUR*SSS) 79 RABNING © ENV BASP REMOVERS HORE THAN"D1X, 
me rf VLRG BASE REMQVALAP s 4¥ UC aueaeey ss) 
> 7 2025 RPCDBTLRO LT, 5, WALREENOUT, 2630) 
1] EV(BRIDBUGET, 65) VRERREROUT, 2036) 
a9 ZPICLAULLE, 199, NASER ENOUE, 2036) 
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RPCPLIGLE LI, CARD GONG OTTO TANDIGPAG, AT, Oy WRIEBLMOVT, 2030) 
B2 2030 PORMat¢s54¢¥, S(6B as ie ab he "LRU DATA OURSTEOMADLEY, SEGNS43554)/) 
$b DO 2900 XRU & 1, NSRYS 
MG THCORTSROCTRY) LT, oe pAgD, XORTH(IRUY 07696 ayeneetn: 2005) 2Rv 
96 TH(CERV (TRU) SLT, 2b, DNAITBINOUE, 2008) 220 
a7 ZPCXMTHOL IR), che s2OGU MRSS EC NSUT, 20457 ERU 
moe 2049 CopTguuz 
“09 2005 FPORMATCs/> 43; Pi eM coset he aRDterss! DATA QVESTLONABLE", 
$0 & SCG esse ee ts) 
BY ¢ 
| §2 CSET © egnv(4) 
£3 ze § BQUNOP ) CSET © eExagu 
‘ GALL IOSTAL 
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PECODECCARD, 135) COSSSNSRUS, Ti preigg) , (SPPPNIRYGy EZ) y 301.8) 
FORMATC2SN) 4E2, 4X) 42IF L082) 
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PORMATCSHR Lag |a.ds 
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PORMATCAZN) 
THCIOSHSH WE TOSAUSESRUS))A0 Fe 1 
PECONECCARD, 296) SFIHCNSRUS) 
FORMATE ISX, AAG) 

LP ¢ SOSRCUSRES) HUSMGAUKIG $ WETER(HOVT,939) STSHCBSROS) 
FORMATCVIXF ATE) 
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ge TO 3 
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NMODS © WMODS + 1 
GO Tc 80 

6@ To ? 
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gO TO 2 

TEQU = 4 

ZIP ( S47,LE.9 } GO EO YO%O 
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gO TO 38900 

WRITE(O, 1020) 

FORMATC” MISSING 9T CERD w ATORT FOB) 
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WAITESS, 1080) 

FORMATCQIGNOPLYZNS NOUQ Clad LRCOMPLETE) 
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4 SUSROVELNE OUTPYT 
2 COMMON /ZOBT/ NORTZEOUMNOD .SNLCOM, UBASEY, BRINE, DATOEK 
3 LOGIcas EQUMOD, EULGONGVEXSEZ-ENGIEE, DSPOCK 
r COMMON /ESTSZ PETRSMeELINal, LIOMTH,XIOMAXGERSLOR 
5 € 
6 COHMOW VEMARZS HOE TIRE INO, TER TPERU, LOSRH, FSH, SPINSALC,SALC 
9 8 PXIDERE, TCP, ENT 
8 CRARACHER NOGES  THOTE, TOL RU Au, TASROWAY (OH) -FEN*(GsSPSU*26 4S), 
Pe 8 ALEPZ, SALCTICGS) SEDERDEO)  KBYPayTCreésS) ,LMPFETS) 
C 
91 CONAQM /BASES NBASESsHSRUS ERY PLYLOT, O87 BETAZRABTIAL, PRO, BPRDs 
92 ‘ EDAGPHRESCCLUOEAST ENGR eke, RdgEEayDOSTOR peTOp : 
93 DENERSTON BNL30), CRCHSy reer (36) 
T' ¢ 
95 CONMOW /ERVS/ CLEUZEMTAD  YNBTS, PRELAU -PRTERY VET, LNWORK 
46 ¢ 
G7 COMMNAM SERVES CERVIGNEN CSET IEMOHS,XMZOP NUSTE, BATORU, ORTORU, BPLTs 
98 $ QUVORE, PCENAT 
49 DEMENSZOW OSRUCKS) FXNEBH HS) CYNRES ENS) ,-RESEC HAD) ,PTIRU( aS), 
20 8 SPLEGOS) STAGORK (US) cpETRae us) 
a3 6 
22 COMMOW SSAVES ANSRCLS HE SPC Taz, Thy XHKOR BLEROS 
23 ¢ 
gu CONNAM sSZCK/ DSTCHENSHCE REMOVE, BBACKL BAEK 
a5 ENTEGEDR DSECK( 45,3) pRgeek (45586, 3) 
. DEMENSTON BRACK{ 4570098) caBnovLs 30), BAGK(9O) 
1 6 
ae DENSA STOR SR Lae SHEN EST OLGMECIOD PREC ON LOR LOUIS PE ETOL. 
89 é ¥PQORTIO} 1G) 
30 6 
31 COMMOM /NUNB/ LTOTZPLEU Rr RUS LNLRUD, NSBU, NSRUS, ASRUP, WSRUL, MaAXS®x 
32 6 o MSETPSROMAR SETHAASNSUERY LNLBRSOSAIM  IPHSMBARS, LOBOS LAPT 
83 INTEGER VLEDE (30) SNSRHE CUS, 30) LRSRUD (OS), MERUR COS), LERUS(2). 
4 é URPTES) 
¢ 
Bs COMMON SHCUTS TARSTPeRSOT MALS LHRKTLTENCH TPELE 
¢ 
HH P renee Se 
9 BEOL ac 
rt.) DENEGSEOD Bop ee Rp ee pos TD), BanD(3O) cAATRPROD UBACKCUD) 
of C 
a2 CONMAW yYORORS DRE RSRPARAY. NL OW sRDD 8D: is 1 ti 
43 PENERSTON BELTALIONO I OMOD OSs sndngdS) »RNBQUNts 
au C 
45 ¢c 
56 CONMNQW /ECOMs PSGLTERg ars 
49 Cee sess gegsSsgibgroopanGPAhdcgeaghINF COMMON PEPELReee 
66 cali aide cabadellarh 1-41) h gC li 
49 Bpresyess ye) 
40 cOMRO/DaNEES/TNANRASEORIY eT 
DENBMETON MSRUOES) PAPRCR EES, 10) oMERUBE ny, 


Se ee ee eg Rg ee en ea 
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33 Cegoorodeeedéccabacbegqetbéboegacgshogoborensge hes kR bbe 
34 DIMEQSZON PSGLI( 45) 

55 ¢ 

36 PRNENSTON CTEEUS)  ROTESS 

37 PUNERSZON PESEnUCeSTCEneh toa! 

‘8 ¢ BORSUT THE SELPUION Fon WHSS sussst, 
39 Ivy ( SORET,LT,O ) CALE etpuTr 

$0 5000 LYOTeNERUD 

$1 DO 5010 ZBS & 1, URESES 

$2 5010 LYOTSLESTSNLEUBI IBA) 

$3 5920 C¥SFLORT(LTOT) CURE 

54 CYLect 

$5 LCP(PLBATCNERUD) +, 29) CPLT/sBRILAU 

56 LDOWNLAVOHLE 

67 NUN BeNSRUSF 1 

68 pe 5928 ZRU o 4,ugRuS 

69 NSRUTCARY )MaSRUa LEY) 

70 PO 5O26 TBS & 1, NPdSRg 

71 5024 WERUTC IRV) MuSRUS (TRV onsBus (eRe, res) 

72 CTS(TRUPSCSRY (TRU) BLOAT MSRON CLERGY)! 

73 5925 CReecTects (ZR) 

78 RP ( CELLE,BUDGENPTS) ) GO So 9890 

75 DUOResZANTSSBAROC URES) }/iceeGyseteRts)) 

76 cP ( WOTS,LEL1 } GO 2g 9098 

17 BEOZ1 B CXOMTHOBAKOCMPTSS4)) Feat ogUDa NETS e4)) 

78 TF ( BS0L1,LT,8908 ) G6 To S$OR8 

79 WRLTEEHOUTS $996) 

80 5026 FORMATC/73¥, 108( NED /FISX,CASOVE SOLTTICN ett do of, 
81 g ¥Y POXET NOT SAVED POR GRAPNYCONBIRE”/ 9X9 1083 TN") 
82 ypTS = pets e 4 

83 IP ( LERLE,LE,0 ) G8 26 Sods 

au BACKSPACE TIFILE 

85 pO 3O49 FF m 1,NSRUS 

86 5027 BACKSPACE XFILE 

87 BACKSPACE JEILE 

88 ¢ 

89 $028 I¥ ( SBLLE,GT,9 } 

90 é waIRECCFIEE, $090) 4OBE, ROLEU; BORBD TONING CE 

91 5$Q30 FORMATCIXSBHRS pB4RDINGe TS. PIII AFF 12,0 

92 CopeerebencebssobapbopqoupescasseRPOORD conaeree LEveza 
93 ALRUDONE RUD 

94 DO 20 XROe1, NSRYY 

95 NSRUDCEDO eRSMySESAY) 

96 BO 45 2BSad NBABES 

97 MSRUBPETRV A TOSI ONSRAUB (TAU, fas) 

98 MLBUB SLES SHLRYURGZAS) 

99 45 GOnTzaDE 

00 20 ConTigvs 

e1 (Fe pmowosoredbccobdoccbunqoegeqbwagabgebagobe 
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POPAUROReLe 
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ConTxave 
DO HO ZRSe4pUBASES 
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CONTINUE 
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89 
sec 


DO 80 SeOSisNSEUS 
LDVIEBSZDDIFE(IBU) vw 075 
IP(USAUDETEO) LE, LDOTES I NERD (TRO) aIDPIPE 
pO 70 ZBSes RRASES 
TITTITTITISTIETITI UD 30,8 
UPC MOROUTIEY, 283) SLOL INR EPS! WSRUB(TAV, IRS) SZAP TER 
COUTINV, 
CONTINGE 
operuys 


Seger reeSoge tS ssobspoezwebGggoesesg END OF LEVELS CHEGKeoseare 
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(WEBUDEEGS) [0803,HBARS 8) 
FVORNASESBOLRY shZHHASGRINLG, £7, Sorby 2x5 2979/§2E, 2993) 


LPCIRSEL GEO WRITE IPIER SOSOITDARU PIN EEC CHL LeOT, 
LD,LE, PPLRIS TRS) OIHSes GRPKEEEy 

RORNASCIRZONS1 cAZHSAGOST FSS Oethy 27309083) 

YRITEC BOUL) 5970) 

VORMATIUN SRY) 

DO 5400 ZRVSIENS 

KGe( LORS RDORU (EHO) 16799 eBPLesrROy /ORESEVSZON) 

KOSNSRUH LIBS) HK 


IP S¥2EE, BT, 0 
WUITUCEPELE, S000) Sanu eTa0) sersuexz0) ,#AbCi TRUS cet EAU) 
MSRVECTRU) g KD, XCsEBSROM( TROD TRS) yIE904, NOASES) 
PORNAIGAESARS4 gASHBAGO RPO .0, 20, 2739,9083) 


ze ( rTeRET,at.9 ) rh tet XBACK(EBU) 

FORM ATGCI NS) 110K, THEME R IONS 
WRITEQEOUTSSA1C) EBVCTDSRUCTRUS, SALC (TRU) SCTSEIRU), BSRUE(ZRU); 
KD, KC CHSRUBCIRUZSERS) GL BSA1,HBAGES) 

RORMRTE INIT BK eABH GAGS LLG 50573. 226, 2K ydIFIL6INW 2939) 
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C 
vot s Of 
pe 5428 2 gi 
ry ( don") S4h9¢5¢a908e47 
RCT @ Bet © f£ JETSINONH ) * 1008 
pe 5498 g @ 143 
KCT(Ues8) = rer e (367710) * 46 
ICT ws 3ee y 40 
oct s Set ¢ 1009 
IP ( 364 ) 532045420099 49 
FAT(2) @ TOTLT0§) 
ge To 8422 
WaITEEROUT, $124) KEe 
FORMATE /7UOX. 1SHP FRE FOTAL Fost Gy 11X5974) 
6® TH 6128 
WAITECBOUTIFBT) Kez 
CONTINUE 
WRITEGHOUT)SIF0) RRMZH _ 
FORMATCUONS IAN*HVE® BeenOgoens #84456) 
WZERQB = 0,200 
FILTSe ,0 
pe 5403 258 © 1, NpbS8g 
FELTSVILT+RILE (AS) ANRELIS) 
WZEROS = WLEROR * FOROH (Was, (i ePnCYas) 
CONTINUE 
WZERQB = 100,0 © WERBRQB 2 FLETOT 
PILTSYLLT/ELSCOF 


WAIT EEHOUTESIS9) 100,QnefL? 

Waaeeinansh ania izes sage % $2916,2) 
ALTESMOUTISISG) W 

penne ceoxs vaneyver iene Bats X 5¥16,2) 
VRITECHONT, 5140) BEBE 

FORMASC UX, CAN*O**? ByY Supp off 4840.8) 
IP(IPROT{LE.Q) GO 3B 9205 


GENERATE CORDITIONAL SRU WALT TIRES POR PaO Weve 
IP ( ,BOT,INLCON ) BO fO 8489 


pe 5402 SRV © 44NgRys 
CALL ABEUSE( PORCERVIGROBETRO; LOMBAMAETRYY ) 
DEELASELRD) & DELSSCBERODWRO)) © saeeeD (hey) 


pe 5408 S88 & 1, Npaeas 
GADZ¢38s) # 0,0 
pe 5908 ZRU eo vetpaus 
ZZT wo CUSTHPTS(LRVD) © Barsruesny) 
+ Xears¢Tay) ° doae ites} poszar(sav)) 
pX = PED(TAY) °F RODEE 
P48 1, © PDDC LRU) 
4 = RBOCIAY) © 1, 
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CONTINUE 
CADS(LE) @ CADZICZTES) SF RsOrl ers} 94 ePCHN) *BEd 


CADZEUS) © CADR( EAS) 7 Psezet 
COUTINGE 


CONTINVE 


DO 5400 NRE @ 2,10 

pe 54960 Sas « 1, NDSSES 

KOULQVR(TBS) 41 

BSCIBSPwERPRE (TBS)OR aoc oPLCIRS) ) MHSETBS) /X 

MPROBSESSFNRK) SNZETES) 

VRRURGREBS)ORLAUG( SRS) 49 
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